home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 89 / 089.d81 / customer label (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 3 dv=peek(186):ifdv<8thendv=8
  2. 5 ifa=0thena=1:load"i-menu $c000",dv,1
  3. 6 poke53281,0:poke53280,0
  4. 10 print"[147][158][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  5. 20 print"[153]      [205][217][194] [195][213][211][212][207][205][197][210] [204][193][194][197][204][211] [205][207][196][213][204][197]      "
  6. 30 print"[153]     [195]opyright ([195]) 1991 [211]oftdisk      "
  7. 40 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  8. 50 reada$:ifa$<>"-1"thenprint""a$:goto50
  9. 60 sys49152,2,6,6,7,1,3," 1. [201][206][211][212][193][204][204][160][195][213][211][212][207][205][197][210][160][204][193][194][197][204][211] "," 2. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]"
  10. 70 getb$:a$="cust.sda":ifb$="2"thena$="hello connect"
  11. 5000 data"[159]     [212]his program does not return to"
  12. 5010 data"[204][207][193][196][211][212][193][210].  [201]t is a self-dissolving"
  13. 5020 data"[193][210][195] file that will add program files"
  14. 5030 data"to your [205][201][206][196] [217][207][213][210] [194][213][211][201][206][197][211][211] [211][217][211][212][197][205]"
  15. 5040 data"disk.  [201]f you don't want to install"
  16. 5050 data"the files to your disk, select option"
  17. 5060 data"2. [210]eturn to [204][207][193][196][211][212][193][210].  [207]therwise"
  18. 5070 data"press [210][197][212][213][210][206] to [204][207][193][196] the installation"
  19. 5080 data"software.  [207]nce the title screen"
  20. 5090 data"shows, remove your [204][207][193][196][211][212][193][210] [196][201][211][203] and"
  21. 5100 data"insert your [205][217][194] [211][217][211][212][197][205] [196][201][211][203].  [198]ollow"
  22. 5110 data"the instructions on the title screen."
  23. 5120 data""
  24. 5130 data"      [208]ress [193]ny [203]ey [212]o [195]ontinue"
  25. 5140 data"-1"
  26. 60000 open15,8,15,"r0:"+a$+"="+a$:input#15,er:close15
  27. 60010 if er<>63 then print"[147]":end
  28. 60011 q$=chr$(34):poke646,peek(53281):print"[147]"
  29. 60020 print"load"q$a$q$",8"
  30. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  31.